# cate counter

cate_counter <- function(data = data.frame(), count_vec = c(""), sepper = "sepper"){
  data$cates <- data[, count_vec[1]]
  if(length(count_vec) > 1){
    for(i in 2:length(count_vec)){
      data$cates <- paste(data$cates, data[, count_vec[i]], sep = sepper)
    }
    cates_vec <- unique(cates)
  }
}
